gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\memSave.asp

    <!-- #include file = "include/conndb.asp "-->
<%
dim IsModifyPwd, strPwd1, strPwd2
dim strSQL, cmdObj, rsObj

IsModifyPwd  =  Request.Form("modifyPassword")
strPwd1  =  RealString(Request.Form("password1"))
strPwd2  =  RealString(Request.Form("password2"))

if IsModifyPwd = 1 then
	if strPwd1<>strPwd2 or  strPwd1 = "" then
%>
	<script language = Javascript>
	<!--
	alert("密码输入不正确，请重新输入(不能为空，确认密码、密码必须相同)！  ");
	this.document.location = "memModify.asp";
	-->
	</script>
<%
		Response.End
	end if
end if
'	Response.Write modifyPassword
'	Response.End
       Set cmdObj  =  Server.CreateObject("ADODB.Command")
       Set rsObj  =  Server.CreateObject("ADODB.RecordSet")
       cmdObj.CommandText  =  "SELECT * FROM member WHERE memberID = '"&Session("memberID")&"'"
       cmdObj.CommandType  =  adCmdText
       Set cmdObj.ActiveConnection  =  conn
       rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic
       rsObj("name")  = Request.Form("name")
       rsObj("sex")  = Request.Form("sex")
if IsModifyPwd = 1 then
       rsObj("Pwd")  = strPwd1
end if
       rsObj("question")  = Request.Form("question")
       rsObj("answer")  = Request.Form("answer")
       rsObj("email")  = Request.Form("email")
       rsObj("phone")  =  Request.Form("phone")
       rsObj("address")  = Request.Form("address")
       rsObj("Zipcode")  = Request.Form("code")
       rsObj.Update
       rsObj.Close
	   
       set rsObj = nothing
       CloseConn()
%>
<script language = Javascript>
<!--
alert("修改成功！");
this.document.location = "memModify.asp";
-->
</script>